5 PRINT"[147]"
10 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
20 POKE54277,8:POKE54278,255:POKE54276,23:F1=10
30 FORZ=1TO24:F2=30:REM F2 = PITCH, Z = NO. OF CYCLES
40 POKE54273,F1
50 FORY=1TO10:POKE54287,F2:REM Y CONTROLS SPEED
60 F2=F2*1.01:NEXTY:REM CONTROLS HARMONIC CONTENT
70 F1=F1+8:NEXTZ:REM CONTROLS HARMONIC CONTENT
80 POKE54278,15:REM CHANGE SUSTAIN-RELEASE TO STOP SOUND
90 LIST10-80